Savor the Moment - Entert…ing Without Reservations/Savoe the Moment - Entertaining Without Reservations.iso/pc/show.dxr/00052_Cycle Graphics.ls

Text File | 1999-10-03 | 9.9 KB | 245 lines

property spriteNum, mySprite, myFirstMember, myLastMember, myFrameTime, myTimeUnit, myPlayBackwards, myMembersList, myMemberCount, myCurrentMember, myListPosition, myLoopFlag, myMilliseconds

on getBehaviorDescription me
  return "CYCLE GRAPHICS" & RETURN & RETURN & "This behavior cycles through a series of consecutive cast members" & RETURN & RETURN & "It gives you all the features of a single member filmloop, plus the possibility of precise control via Lingo.  These possibilities include speed control, starting and stopping at an arbitrary image, modifying the list of images to cycle through and more. (See 'Public Methods' below)" & RETURN & RETURN & "You simply arrange your castmembers in the order they should appear in the cycle, then use the Behavior Parameters dialog to indicate the first and last images.  You can use any type of visual member, including fields, text and buttons.  Spaces between cast members will be ignored." & RETURN & RETURN & "The regPoint of each member will appear at the loc of the current sprite.  If necessary, modify the regPoint of each member individually so that it appears in the correct position relative to the other members of the cycle." & RETURN & RETURN & "If you shift the members to different cast slots, you will need to alter the settings in the Behavior Parameters dialog: a film loop can keep track of where you drag its members to, but this behavior cannot do that." & RETURN & RETURN & "The images cannot cycle faster than the current frame tempo.  If you need to cycle faster, either increase the tempo or reduce the number of images in the list.  At speeds of more than 60 images per second, the human eye is incapable of distinguishing individual images, so higher speeds are unnecessary." & RETURN & RETURN & "PERMITTED MEMBER TYPES:" & RETURN & "#bitmap, #button, #field, #filmLoop, #flash, #movie," & RETURN & "#quickTimeMedia, #shape, #text, #vectorShape." & RETURN & RETURN & "PARAMETERS:" & RETURN & "* First/Last members: indicate which cast members to use." & RETURN & "* Rate of display of images (120 fps to 2 hours per image)" & RETURN & "* Cycle forwards or backwards" & RETURN & "* Start cycling images on beginsprite? (TRUE | FALSE)" & RETURN & "If you choose not to start cycling images on beginsprite, then you need to send a #CycleGraphics_ToggleLoop message to the sprite or the behavior to make the cycle start." & RETURN & RETURN & "PUBLIC METHODS:" & RETURN & "=> Determine which image is currently showing" & RETURN & "=> Cycle images at the frameTempo or slower" & RETURN & "=> Play the images forwards or backwards" & RETURN & "=> Start and stop at an arbitrary image" & RETURN & "=> Jump to a given image" & RETURN & "=> Determine or modify the list of images to cycle through" & RETURN & "=> Obtain the behavior reference."
end

on getBehaviorTooltip me
  vTip = "Use with any graphic member, including text" & RETURN
  vTip = vTip & "and buttons.  This behavior cycles through" & RETURN
  vTip = vTip & "a series of images at a rate independant of" & RETURN
  vTip = vTip & "the frameTempo.  It gives you all the features" & RETURN
  vTip = vTip & "of a single member film loop, plus precise" & RETURN
  vTip = vTip & "control via Lingo.  You can stop/start the cycle," & RETURN
  vTip = vTip & "alter the speed, jump to an arbitrary member," & RETURN
  vTip = vTip & "reverse the direction of the cycle, get and set" & RETURN
  vTip = vTip & "the list of membersto cycle through, and determine" & RETURN
  vTip = vTip & "which image is currently showing." & RETURN & RETURN
  vTip = vTip & "See the 'Notes for developers' in the script" & RETURN
  vTip = vTip & "for more details."
  return vTip
end

on beginSprite me
  Initialize(me)
end

on prepareFrame me
  Update(me)
end

on Initialize me
  mySprite = sprite(me.spriteNum)
  case myTimeUnit of
    "images per second":
      myFrameTime = 1000 / myFrameTime
    "ticks per image":
      myFrameTime = myFrameTime * 1000 / 60
    "seconds per image":
      myFrameTime = myFrameTime * 1000
    "minutes per image":
      myFrameTime = myFrameTime * 1000 * 60
  end case
  case myPlayBackwards of
    #forwards:
      myPlayBackwards = 0
    #backwards:
      myPlayBackwards = 1
    otherwise:
      return #invalidSymbolError
  end case
  myFirstMember = member(myFirstMember)
  myLastMember = member(myLastMember)
  minMember = min(myFirstMember.number, myLastMember.number)
  maxMember = max(myFirstMember.number, myLastMember.number)
  myMembersList = []
  repeat with memberNumber = minMember to maxMember
    theMember = member(memberNumber)
    myMembersList.append(theMember)
  end repeat
  checkedList = StripNonGraphicMembers(me, duplicate(myMembersList))
  if checkedList <> myMembersList then
    ErrorAlert(me, #invalidMembers)
  end if
  myMemberCount = myMembersList.count()
  if myPlayBackwards then
    myListPosition = 1
  else
    myListPosition = myMemberCount
  end if
  myMilliseconds = the milliSeconds
end

on Update me
  if not myLoopFlag then
    exit
  end if
  elapsedTime = the milliSeconds - myMilliseconds
  if abs(elapsedTime < myFrameTime) then
    exit
  else
    if elapsedTime > (myFrameTime * 2) then
      myMilliseconds = the milliSeconds
    end if
  end if
  myMilliseconds = myMilliseconds + myFrameTime
  if myPlayBackwards then
    myListPosition = myListPosition - 2 + myMemberCount
  end if
  myListPosition = (myListPosition mod myMemberCount) + 1
  myCurrentMember = myMembersList[myListPosition]
  mySprite.member = myCurrentMember
end

on CycleGraphics_GetCurrentMember me
  return myCurrentMember
end

on CycleGraphics_GetMembersList me
  return myMembersList
end

on CycleGraphics_ToggleLoop me, trueOrFalse
  if voidp(trueOrFalse) then
    myLoopFlag = not myLoopFlag
  else
    if ilk(trueOrFalse) <> #integer then
      return #invalidTypeError
    else
      myLoopFlag = trueOrFalse
    end if
  end if
  if myLoopFlag then
    myMilliseconds = the milliSeconds
  end if
end

on CycleGraphics_ToggleDirection me, playBackwards
  if voidp(playBackwards) then
    myPlayBackwards = not myPlayBackwards
  else
    case playBackwards of
      #forward, #forwards, 0:
        myPlayBackwards = 0
      #back, #backward, #backwards, #Reverse, 1:
        myPlayBackwards = 1
      otherwise:
        return #invalidSymbolError
    end case
  end if
  myMilliseconds = the milliSeconds
end

on CycleGraphics_ShowImage me, theImage
  case ilk(theImage) of
    #integer:
      if (theImage < 1) or (theImage > myMemberCount) then
        return #outOfRangeError
      else
        myListPosition = theImage
        myCurrentMember = myMembersList[myListPosition]
      end if
    #member:
      listPosition = myMembersList.getPos(theImage)
      if listPosition then
        myCurrentMember = theImage
        myListPosition = listPosition
      else
        return #notInListError
      end if
    otherwise:
      return #invalidTypeError
  end case
  mySprite.member = myCurrentMember
  myMilliseconds = the milliSeconds
  updateStage()
end

on CycleGraphics_SetFrameTime me, theMilliseconds
  if ilk(theMilliseconds) <> #integer then
    return #invalidTypeError
  else
    if ilk(theMilliseconds) < 0 then
      return #outOfRangeError
    end if
  end if
  myFrameTime = theMilliseconds
end

on CycleGraphics_SetMembersList me, membersList
  if ilk(membersList) <> #list then
    return #invalidTypeError
  end if
  StripNonGraphicMembers(me, membersList)
  if not membersList.count() then
    return #emptyListError
  end if
  myMembersList = membersList
  myMemberCount = myMembersList.count()
  if myPlayBackwards then
    myListPosition = 1
  else
    myListPosition = myMemberCount
  end if
end

on CycleGraphics_GetReference me, theList
  case ilk(theList) of
    #list:
      theList.append(me)
    #propList:
      theList.addProp(me.spriteNum, me)
    otherwise:
      return me
  end case
  return theList
end

on StripNonGraphicMembers me, membersList
  permittedTypes = [#bitmap, #button, #field, #filmLoop, #flash, #movie, #picture, #quickTimeMedia, #shape, #text, #vectorShape]
  i = membersList.count()
  repeat while i
    theMember = membersList[i]
    if ilk(theMember) <> #member then
      alert("'Cycle Graphics' behavior - not a member: " & theMember)
      membersList.deleteAt(i)
    else
      if not permittedTypes.getPos(theMember.type) then
        alert("'Cycle Graphics' behavior - invalid member: " & theMember)
        membersList.deleteAt(i)
      end if
    end if
    i = i - 1
  end repeat
  return membersList
end

on ErrorAlert me, theError, data
  behaviorName = string(me)
  delete word 1 of behaviorName
  delete char -30001 of behaviorName
  delete char -30001 of behaviorName
  case data.ilk of
    #void:
      data = "<void>"
    #symbol:
      data = "#" & data
  end case
  case theError of
    #invalidMembers:
      if the runMode <> "Author" then
        exit
      end if
      alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & "Behavior " & behaviorName & RETURN & RETURN & "Certain members between " & myFirstMember & " and " & myLastMember & " are not graphical members.  Check the permitted types list for valid types.")
  end case
end

on getPropertyDescriptionList
  if not (the currentSpriteNum) then
    exit
  end if
  theMember = sprite(the currentSpriteNum).member
  theMemberNumber = theMember.number
  return [#myFirstMember: [#comment: "First member of series:", #format: #graphic, #default: theMember], #myLastMember: [#comment: "Last member of series:", #format: #graphic, #default: member(theMemberNumber + 1)], #myFrameTime: [#comment: "Display images at a maximum speed of:", #format: #integer, #range: [#min: 1, #max: 120], #default: min(the frameTempo, 120)], #myTimeUnit: [#comment: EMPTY, #format: #string, #range: ["images per second", "ticks per image", "seconds per image", "minutes per image"], #default: "images per second"], #myPlayBackwards: [#comment: "Cycle:", #format: #symbol, #range: [#forwards, #backwards], #default: #forwards], #myLoopFlag: [#comment: "Start cycling on beginSprite?", #format: #boolean, #default: 1]]
end